Attribute VB_Name = "ModMain"
Option Explicit
Private DwmEn As Long

Sub Main()

DwmIsCompositionEnabled DwmEn
If DwmEn = 0 Then
MsgBox "Dwm is closed!"
Exit Sub
End If

If IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash")) = False Then
MsgBox "Flash have not been installed properly!"
Exit Sub
End If

FrmMain.Show
End Sub
